BRS I DENT. H19 3/7/68 , 

* ENTRY POINTS 

ENTRY T*BSX*SS01*SS02*SS03*BST*£POPX*BSE 
' ENTRY . iMGET*MPUT*PTRAP*TRAP*MDEL* TRAPS 

ENTRY MX01*NS03*MX13 

ENTRY TRAPI.-TRAPM 

ENTRY ' RFK*TFK*FKSTW* GFK* SCFK* DFK* EFK 

IF -1. 

ENTRY MSP*MSX*NRTRAP*N.RPOPX*NRXPOP ,. 

ENDF .■■'.'■.■'■.'■. 



4*: ,r ~ 



' SBRM • * » SBRR ' * ' EX S * 6/28 / 6 6 



SBRM 


POPD. 


170000008*1*1*0*1 


SMB 


STX 


SS03 




EAX* 


- ' 




XX A 






ETR ■ 


ADMSK. 




MRG 


.■ = 400400008 . 




XMA ■ 







ETR 


=377377776 




ST A* 







CXA 




- 


LDX 


SS0 3 




BRR 


• 


SBRR 


PO PD 


171000008*1* 1*0* 1 


SRB 


STX 


SS03 




LDX*. 







EAX 


0* 6 ' ' 




STX 


T 




LDX ; 


SS03 




BRR* 


■ T C 


EXS 


POPD 


'■■.• 152000008* 1* 1*0* 1 


XSP 


STX 


. SS0 3 /' 




LDX 


PACPTR 




SKN 


PQU*2 


, 


BRU 


TRAP 




LDX 


' SS03 




LDX* 


'■■■'' 




STX 


• XSPl . 




.LDX 


SS03 


XSPl 


ZRO 






BRR 







WIN 


'0 




BRR 





* \ 






* 'BRS 


' 9/2 


7/65 



(TIME. 40- US) 



♦ THIS ROUTINE DISPATCHES ON THE ADDRESS ''OF A 9 BRS* 



T ZRO 

* UNIVERSAL TEMPORARY STORAGE 

BSX ZRO . ■ ' . ■ ' 



■* BRS EXIT 

5501 Z-RO' 

* SAVE CA). 

5502 ZRO 

* SAVE CB) 

5503 ZRO 

* SAVE CX.) 

•SSR ■ ''EXT * 

BRS ' POPD . 1..7300000B*.1* 1>0* 1 

BS STA . S30 1 - 

STB . SS02 

SIX SS03 

EAX* 0- ^ ■ ■ • . . 

LDA N =-400008 . ■ 

ACM . 

CXA 

etr .admsk 
skg ' =bstu-bst 

BRU BS1 

BST . BRU TRAP- . ' (0) . 

BRU ' MONOPN 6^ Hi 

BRU -MONCLS. cU^ *k* " 
EAX SPFDCr- 

BRU ' *: MPT .$*\<*&l.Wx '■ (4) 

BRU TRAP - * 

BRU TRAP 
BRU ' . CDMF-* 

, BRU IOK cW-vl^ W e3 " C8) 

1 BRU FK ST *M*t\,A 

BRU PPAN V^u ^ 

BRU CiB CW W^ W* 

BRU 'GET Se*-EcUTAU' (12) 

BRU SKI ^ $M$& *»\k 

BRU DOB keUw-o* ^V"^ ** 

NOP RsJl^v^d .^ iw^ ■ 

NOP 1 ©JW \»\^ ( 16 ) 

NOP 2 C-l^ <vU . 

NOP 3 ■ ie^An^ln^ l^ic^f CV<pO 

NOP 4 V K ^W 

NOP 5 <W K^e Rt? (20) 

BRU FN A P^Vu^ jvl^ovk 

BRU . RUPAR <•* 

BRU LNKS L ^t ** ^ 

BRU v LNKC U^.cW (24) 

BRU* MSGS A**?* v^s*^ 

BRU SKROUT. ^'J^% 

BRU TTYOFF~"* 6ttfoS./ . 

BRU OLCW-* (28) 

BRU COB Clw 0^<a"H$X. 

BRU FK RD ^fak^fltas 

BRU FKWT ^axV-fc wV.^^ 

BRU FKTO V c nAi*4fAc^ (32) 

.EAX GETSTR ^^ S^ . 



EAX OUTMSG Ou^**K c #> 

EAX OUTSTR O^VWVcV, ' 

. EAX v -OUTNUM M}vi^"Uf36) 

BRU ' TRAP ■ ■ 

EAX GETNUM U^V^Ur ^ _ T ^r a [^± - ^ ?H 

BRU SPMTB-* • &1t f ' ^ , ^ * 

BRU RDET iWecWWU40) •■ : 

BRU TRAP ___ 

BRU •' RREAL 1W?-IC . . 

BRU RDRL &.«\-^t ^»e,««cU RL 

BRU STRL ; *5C*~ ^~ f A/ °, t. 

BRU SQO ■' 'S^ikWIc^u^t ^wawwi o^rtt^^ 

BRU NROUT T^'ne^f $ 

BRU. SROUT :Tu\a«5c^^ 

NOP 6 UvW ^f </o Rm'^ 48 ) •■..'. 

.BRU. SRIR ?^ Uw^h ■ 

BRU, FFIX FW 

BRU FFUT float 

NOP 1002B- Wm*^ in C52) 

NOP 1003B " ««t- .. , 

BRU TRAP- . • 

BRU TRAP- • • ■ ,.'■■:' 

BRU TRAP C56). 

BRU CQO 6*«**te<. lG.*.9 

BRU CLKTIC-" .■' ' .. 
IF RANFILJ BRU CBRFJ ELSF l-i BRM . TRAPX; ENDF — 

NOP 9 CoiP^Vblttw^t (60). 

BRU - ARD-^G"* 1 ^W^ 

BRU AWD-*«"** U "W* C 

BRU TRAP- 

BRU ; TRAP'- >■ f\\ C6 / 4) " 

BRU A2.K ~ A^^KjJUL 

BRU DFDL /DcUK^ckta 

BRU DFER teAtk 4\\e V<kio WpcC -■ ■' 

BRU TRAP*" , C68) : - 

BRU TRAP"* . ' ' i , ' 

BRU 3KXEC S^^W, -^V^^VO^^P^^^ 

BRU TRAP C72) 

BRU -R02K -* ttfc^l v *\ r^^ iL^XmA <?\c Meet 

BRi I "WP2K - * *+*° ^ *> nk m ^7 < 

BRU DA2K -* (76) >lc^^ ^ >^' 



?h&- ^eUW V«Aoi* 



BRU RDUSSR-. , '&"* uSS ;^M^ 

BRU SAIR iWvSafc^ Iw^vh 

BRU SIIR Ok$* scfvJ^H> <vxk\if^t -• , 

BRU TRAP <8,0)/ ,, . 

BRU ' W.REAL V^Ws^uiidw- 

BRU .. TRAP-** . C UN-TIL- SWSF.IS FIXED) 

BRU TRAP* 

BRU TRAP-*. (8 4) . , 

BRU SET8P . %t ^^^W*U ^ 

BRU CLR8P cVw^Vw.«Ae«. 

BRU DFRX ' fccuc* >kcUL£ Wo^ 





.BRU 


R T EX j\W\ |\\n« »k*a:4iVf: 88 ) 




-BRU 


TRAP— 






BRU 


DFR tltcW W 5 - '&* 


■ fiA,tjC«A\ 




BRU 


TRAP 






BRU 


TRAP- 


C9 2) 




BRU 


TRAP—. 






BRU 


TRAP- 


- 




.BRU 


TRAP 


CBRS 9 5 AND 9 6 




BRU 


TRAP 


(9 6) 




NOP 10 


•* 






BRU 


TRAP- 






BRU 


TRAP— 


. ' 




BRU 


TRAP— 


C 100) 




BRU 


TRAP- 


, * . \ 




BRU 


TRAP'" 


■ •'.', ■ ■ 




BRU 


TRAP- , 






BRU 
BRU 
BRU 


RSYB ^(*^-?->'ai c i 04> 
WSYB wnk f'^S - 
. FKWA . ^ -Ur- fe-k .V> taAvvU^K ■ ■■.'■. 




BRU 


FKRA. fe»cV<A\ lovac ' 


^108), 




BRU 


FKTA 'TfcrttMvJ^d.U V*> 




BRU 


DM S $'9k^ 






BRU 


RDU ^snnK'ins <% "\\i 


\ 




BRU 


BRSRET ^Wvn.W^KS 




BRU 


TSO FF Tay-v o-F Vft 


(H2) 




BRU - 


DFCD Gm^^cQW 


S\2* 




BRU 


'TRAP* - . 






BRU 


' TRAP— 






BRU 


RUR.L fc&Aassc £<- 


(116) 




BRU 


SURL StVv«s? ? '«.V. 






BRU 


TGET (kV-V^s. 






BRU 


TREL featac*.Vv^ 






BRU 


APMTE* /Wkw^wvU 
DPMTE JVtUV-^ 1 ^^ 


(120) 




BRU 


1' 




BRU 


MP AN Awc^ ^,uV 




BSTU 


BRU 


TRAP 




BS1 


LDA 


BST*2- 






ST A 


BSX 






LDA'' 


' SS01 . 






LDX . 


PACPTR 






EXU 


BSX 


(GO IF DIRECT) 


* 'SAVE 


RETURN 


IF CLASS II 




BSE 


LDX 


' . 






STX 


SBRSRT 






LDX ■ 


=UBRSET , . 






STX . 


' ■ 






EXU 


BSX. 






STX 


T 


(STORE DISPTCH) 




LDX 


S.S0 3 






BRU* 


T 


_(GQ TO CLASS II 


* RETURN FROM 


CLASS II BRS'S 




EROPX, 


BRR 


SBRSRT 





ARE DANGEROUS) 



* CLASS 3/ 4 


BRS SETUP AND RETURN ROUTINE 


UBRSET BRM 


' GFK . - 


BRU 


FKSTW 


BRM 


STFK 


MRG 


. X 6 ' • 


LDX 


FK04 


STA 


■PQU^2 


, LDA 


'BSX 


RCY 


9 


ETR 


= 3 7B 


CAX 




- LDA 


8RSTV*2. ... 


RSH 


12 


STA 


T 


LDA 


>=4O01B , 


LCY 


12 


STA . 





LDX 


PACPTR 


LDA 


RLL2 


STA 


U3RL1 ':■ 


LD8 


RL2*2 


STB 


U8RL2 


LDA 


= N CM EM* 1 00 B+ 1 B 


MRG 


T, 


• CLB 




LDX 


. FK04 


STA 


' RL1j>2 


' STB. 


■ RL2,*2 


LDA 


SS01 


STA 


PA* 2 


STA 


UBA 


LDA 


SS02 


STA 


PB*2 


STA 


UBB ' . • ■ . 


. LDA 


SS03 


STA 


PX*2 


STA 


UBX 


LDA 


BSX 


, ETR 


= 777B '■.'■'... 


ADD 





STA 


PL*2 


'CLA 




STA . 


PIM.,2 


LDA 


=EXECL 


RSH 


•15. 


LDA 


JOB 


L SH 


15 


MRG 


X4 


STA 


PTAB..2 


LDA- 


SB'RSRT 


STA 


X 


STA 


UPL 


. . LDB 


=7000048 



FOR SYS 1.8 FF 



BRU 


POP ST . 


BR S RET LDA 


PPTR*2 


MRG 


PLMSK' 


CAX 




LDA 


PTEST*2 


SKE 


= 7f403048 


BRU 


TRAP 


sub' 


= 3 


STA 


. PTEST* 2 


■ LDA 


UPL 


STA 


' ■ ' 


. STX 


TF01 


LDX 


PACPTR . 


BRM 


' DFK 


LDX. 


TF01 


STX 


PACPTR 


BRU 


STRL1 



IF -1 
* BRANCH TO NOW- RESIDENT MONITOJ 
MSP 



MSP1 



MS) 



ZRO 




STA 


MSR1 


STB 


MSR2 


STX 


MSR3 


M I N 


MSP 


LDX 


•JOB 


LDA 


RL3j2 


LRSH 


6 


LDA* 


MSP 


ADD 


=NMSMT 


LS'H 


6 


LDX 


PACPTR 


LDB 


'■RL2*2 : 


LDX 


RLU-2 


XX A 




BRM 


SWAP 


BRU 


* - 1 


BRM 


LABEL 


LDA i 


■1SR1J LDB i 


ZRO 




STA 


MSR1 


STB 


MSR2 


STX 


MSR3 


LDX 


PACPTR 


BRM 


CHRL 


BRU 


* - 2 


LDA 


MSR1 . 


LDB 


MSR2. 


LDX 


MSR3 ■ 


BRR 


' . M SX 



MSR2; LDX MSR31 BRR MSP 



MSRl - ZRO 



MSR2 ZRO 
MSR3 ZRO 
END.'F 



•NLDB EQU 100 
FDBLST RPT NLDB ' ■ 

DATA *+l 

EN'DR. . 

DATA -1 
ETASK ' EQU'* 

*BRS 65: ASSIGN 2K BLOCK - 

ASK . LDB UEXFLG; SKM PQU, 2J SKB =8IT4i' BRU * + 2; • BRM TRAPX - 
SKN FDBLST,- BRU * + 2; BRU POPX 
LDB =NLDB/3-l5 STB A2K 1 ■ ' ''' ' '.:.-■ 

LDA JOB; MRG = BIT0; LDB =BIT0+1 778.3 LDX =-NLD8 
A2K3 SKM ETA2K,2; BRU A2K2 

' SKR A2.K1J BRU A2K2J BRU POPX ' 

A2K2 BRX A2.K3J LDA SS0U LRSH 11 

'■•BRM ADB; BRU POPX; LSH 1 II STA SS0 1 . 

. CAB; LDA* FDBLST3 X.MA FDBLST;- COPY AX,BA ' • 

MRG JOB; MRG =BIT0 ■. . . ■ ' ' ■■■ '. 

STA 0,25. WIN 05 BRU POPX 
A2K1 ZRO. 

*'BRS'. 70: DELETE 2K BLOCK ■ . 

D2K BRM V2K;- BRM TRAPX; BRM R2K; BRU POPX 

*BRS 76; DELETE ALL 2K BLOCKS -. . - . ■'. 

DA2K LDX =-NLD8 ' / ' 

DA2K1 ■ LDB "=BIT0+177B5 'LDA JOB; MRG=BIT0 

SKM ETA2K,2; BRU DA2K3J " BRM R2K 
DA2K3 - BRX DA2K 1; BRU POPX- , 

*BRS 74? READ FROM ATTACHED 2K BLOCK 
RD2K BRM 0K2K 

STB 0,6; BRM DTK ' '. ' • ' ■ 

. '. LDB SS02; LDX SS03; BRM RTC ' ! ... 

WT2K LDX ERCL; LDA = 2; STA RD2K2; ADM 3,2 '. ' ' • . 

DIR; BRM IRTCT; BRM RT.S 

SKN RD2K2," BRU *-l; BRU POPX 
RD2K2. ZRO - . .: 

. ' '■■■■' y - . 

' - ' : .•■■./ " , ■ ' ' 

■*BRS 7'5: WRITE OM ATTACHED 2K BLOCK. 1 '. . "" 

t\R2K BRM OK2K5 BRM DTK J LDB SS02J LDX SS03 

BRM -RTW3 BRU WT2K • "" ■ 

SRD2KI ■ ZRO; SKN RADTRYJ MIN.0J.'LDA =-15 STA .RD2K25 BRR.RD2KI 

V2K ZRO*' ETR =3774000B5 MRG JOBi MRG =BIT0J LDX =~NLD8 

V2K2 SKE ETA2K*2* 3RU V2KU MIMV2KJ BRR V2K ' 

V2K1 " BRX V2K2J BRR- \/2K , . 



DK2K 


ZROS 




SKB 




ADD 




C3A5 




SKG 


drmlim' 


LDA 



R2K ZR05 3TX R2K15 LDA ETA2JO 2$ LRSH 115 ETR =777B 

BRM RDBJ LDX R2K 1 5 . CXAl ' ADD -ETA2K 
"■XMA .FDBLST5 STA* FDBLST5 BRR R2K 
R2X1 ZRO 

LDA UEXFLG5 SKN PQU^2r ,SKA =BIT4 
= 7 7B5 BRM TRAPX* LDA SS015 ETR =3 7778' 
SS035 SKG = 400085 BRU *+2> .BRM TRAPX 
'LDB SS035 ETR =377761 ADD SS03 
= 400085 SKB =7785 BRM TRAPX 

SS025 SKG UPLIM5 SKG LOWLIM IS THIS PAGE IN SHARED LISP? 
BRU * + 2 IT IS NOT ' , • '.•' 

BRU QK2K1 IT IS 

SKG =377770005 ■ BRM V2K5 BRM TRAPX ' ■■ 

0K2K1 LDA SS015 : CAX5 LDB 0,63- BRR 0K.2K . -' ' ' 

UPLIM 36177778 SHARED LISP ON BANDS 120- .1 19'. 2/10/69. D.C 
LOWLIM 3377777B" ' ." 

CDMP LDX =-3000065 LDA 300008* 25 STA '30000B*6i BRX *-2 
BRU POPX ' . , 

a_.KTIC. LDA = CLKTIM BRS*S8D. PICKS UP THE CLOCK ' CYCLE TIME. USED 

STA SS015 BRU POPX BY BBN LISP. • • ' ' 

* SET NON-TERMI INABILITY 



MROUT- 


■SKN PQU*2.- 

BRU TRAP 
LDA : PIM^2 
MRG XI 
STA ' PIM/2 
BRU 'POPX 




* SKIP 


IF TERMINATION 


PENDING 


S<ROUT" 


LDA PIMj>2 





SKA . X2 

MIN 

BRU POPX 

CLEAR NON-TERMI N-ABI LI TY 



SRQUT 


SKN ' 


PQU*2 




BRU 


TRAP 




LDA 


-PIM*2' 




SKA 


XI. ' 




BRU 


*+2 




BRU. 


POPX 




ETR 


=4 77777 770 




XMA 


PIM>2 




SKA X2. 






BRU 


PACQE . 




BRU 


POPX 


* DECL 


.ARE FORK 


FOR RU30UT 


DFR 


CXA 






LDX 


UTTY 




STA 


TTYASG'j-2 




BRU 


POPX 



MEMORY ALLOCATION LOGIC 



* ASSI 


GN A P 


O'SI.TION IN PM 


PMGET 


Z RO 






LDX 


JOB 




LDA 


PiMA* 2 




SKA' 


=277000008 




BRU 


.* + 2. 




BRR 


. PMGET 




ETR 


= 778 




ST A" 


SMGET" 




CLA 






LDX, 


=NCMEM-1 




BRU 


MGET4 


MGET 1 


EAX 


1*2 


1 


SKE* 


PMTJOS 


, 


BRU . 


MGET A 




MIN 


PMGET 




BRR 


PMGET 


MGET 4 


SKR 


SMGET 




BRU 


MGETI 




BRR 


PMGET ' 


* ASSIGN A P 


OSITI.ON. IN. SM 


SI GET 


ZRO 
IF -1 
ABC 






LDX 


=-MSMT 


SMG1 ' 


, SKE 


SMTE*2 




BRU 


SM G.2 


- 


• CXA 






ADD 


= NSMT 




MIN 


SMGET 


% 


BRR 


SM GET 


SM62 


BRX 


SMG1 




BRR 


SMGET 




.EiMDF 




* GET. 


A BLOCK OF MEMORY 


MGET 


Z RO 






BRM 


MXOl 




'■SKE 


= 




BRU 


. MX03 




LDA 


= - 2 ' 




ST A 


■■ MX : 09 




LDX 


MS03 


* SCAN 


FOR LOCAL OR FIXED 


MGET 1 1 


STX 


: i ,<* v/* r.\ rj 




LDA 


RL 1 * 2 




LDB . 


RL2*2 


- 


LDX 


MX0 7" 




MIN 


MX09 




LCY 


8*2 




SKA 


=770000008 




: BRU 


MGET12 



1 EMORY FORK 



LDX 




MX 08 


SK'N 




PIC1..2 


- ' ■ BRU 




* + 2 


BRU 




MX 03 


' . SKN 




■PTAB*2 


BRU 




M GET 13 


LDA 




PMTA, 


SKA 




=400008 . 


BRU 




MX03 


MIN 




MX 09 


BRM 




PMGET 


BRU 




MX 03 


STX 




MGTS2 


' . • BRM 




PMTA 


BRU 




MX0 3 


LDX 




MS03. . 


* PROPAGATE 


NE ! 


W BYTE AS NECESSARY , 


MGET10 STX 




MX08' . 


LDA 




RL1^2 . . . ■ 


LDB 




RL2^2 ' ' 


LDX 




MX 7 . 


LCY 




0*2 . ' • 


RCY 




18 


MRG 




MGTS2 


LCY 




18 . ■• 


RCY 




0/2. . 


LDX 




MX 08. 


STA 




RL'1^2 " ' 


STB 




RL2>2 


LDA 




PPTR*2 


M R G 




PLMSK' 


CAX 






SKR 




MX 09 


BRU 




MGET10 


* SET UP ME 


W Mi 


AP AMD CLEAR BLOCK 


. BRU 


MX0. 


A . 


•MGET12 LRSH 




18 ; 


LDX 




MS03 


BRU 




M GET 10 


MGET13 LDA 




PPTRj.2 


MRG 




PLMSK 


CAX 






BRU 


/ 


MGET1 1 ' 


* ASSIGN BL 


OCX 


IN PMT 


PMTA Z RO 






STX 




MGTSl 


MGET9 ■ LDA 


JO 8. 


; ADD MGTSl J ADD '= 1 J 


LSH 




6 


MRG 




XI 


LDX 




MGTSl 


. ' STA* 




PMT JOB - 


LDX 




JOB 


LDA 




PMAj 2 


SKG 




X2 , 



BRM ADBi BRR PMTA 



ADD 


, MS.02 


STA 


PMA.,2 


MIN 


PMTA 


BRR 


PMTA 



* RELEASE MEMORY 
PMTAl ZRO 

MGTS1 ZRO 

MGTS2' ZRO 

MGTS3 ZRO 

MGTS4 ZRO 

ADB ZR05 LDB = NSEC-l5 /STB PMTAl' ."■ 

MGET3 E'TR SECMSK5 SUB =NDRAT*NSEC5 AXC5' SKE EDRAT* 25 BRU.MGET5 

BRX *+l| BRX *-35 CXA^ADD = 15 SKR PMTAl 

BRU MGET35 BRR ADB. ■ ■.. " ' 

MGET5 S.TX MGTS3J LDB < EDRAT* 25 CLA.; LDX =465 NOD 48 

EOR X25 LCY 2*25 STXMGTS45 LDX MGTS35 STB-EDRAT*2 

CXA5 ADD =NDRAT*NSEG5 CAB5 ETR SECMSKJ STA MG.TS3 

CBA5 LRSH L2NSEC5 MUL ' '= 125 8AC5 ADD MGTS4 

LSH L2NSEC 

ADD MGTS3 
. ADD =8*0SBND. . ,. ; . 

MIN ADB 

BRR ADB 
SMDEL1 ZRO 
.JMDEL2 ZRO . 
SMDEL3 ZRO . 

■SMPUTA ZRO 

BRM MX 01 

SKG =NCMEM 

BRU ' TRAP ■ 

CAX ■ ■ | ' 

L'DA* 'PMTJOB 

SKE >=0 

SKA X2 

BRU TRAP 

SKA ' =1000006 

BRU *+2' . ' 

BRU MPUT2 . ". 
"CXB 

■ LDX MS0 3' 

SKN PQU*2 

BRU TRAP 

CBX . 

MPUT2 BRM MDELA' 

BRU MX04 

SMDELA ZRO 

STX MDEL1 

LDX . =-iMPAC*NPPAR. 
MDEL4 STX MDEL2 

LDA PTAB*2 





. RCY 


15 






ETR 


■ = 177B 






SKE 


■ JOB 






BRU 


M DEL 7+1 






LDA 


RL1*2 






LDB 


. RL2*2 






LDX 


.' JOB"- 






LDX 


RL3*2 






BRM 


UPRL - 






LDX' 


= -10 - 






LDA 


MDEL1 • 




■» 


ST A 


MDEL3 




MDEL5 


SKE 


SRTE*.2 






BRU 


MDEL6 






STX 


MDEL3 






CLA 








ST A 


SRTE* 2 ' 






LDA 


/MDEL1 




MD'EL 6 


BRX 


MDEL5 






SKM 


MDEL3 






BRU 


MDEL7 






BRM 


PTRL 






STX 


MDEL3 






LDX 


MDEL2 






ST A 


RL 1 * 2 






STB 


RL2*2 




' 


LDX 


- -JOB 






LDA 


'■'■■ M'D EL 3 • 






ST A 


RL3*2 




MDEL7 


LDX 


. MDEL2 






'EAX 


NPPAR-1*6 






BRX 


MDEL4 






/LDX 


JOB • 






LDA 


PMA*2 






SKG 


X2 






ADD 


' =1000008- 


100B. 




ST A 


PMA*2 






LDA 


MDEL1 R 






COPY 


AX , B . 






LDA 


=765 777778 






DI Rs 


ETR* PMTJ0 35 


EIP.5 ST A* PMTJOB 




■ETR.' 


= 37Bl SKG =NS 


MEM- 1-5 BRU MDEL9 




XXA5 


SKN. RMC*25 B 


RU *"-l 




STB 


RMT*25 XX A 




M3EL9 


•CLA 5 


XMA* PMTJOB 




MPUT3 


ETR 


= 7 770065 RSH 


65 BRM RDB . 




LDX 


PACPTR5 BRM CHRL5 BRU *-2. 




BRR ' 


MDELA 





FOB ZROi SUB =OSBND*85 CABj , ETR SECMSK 

STA PMTA15- CBA/ RSH L2MSEC5 CLB5 RSH 235 DI V =24 
■ COPY 8X*S5 LSH L2NSEC5 ADD PMTA15 SUB =NDRAT*NSEC 
XX AJ LDB EDRAT*25 XXA5 RCY .1*25. .MRG X45 LCY r 1*2 
CAX5 STB EDRAT*25 BRR RDB , 



MPUT 


EQU 


MP LIT A 


MDEL 


EQ'U 


MDEL A 


* COM 


MOM .ENTRY FOR MGE 


MX 01 


ZRO 






ST A 


PMTA 




'ETR. 


=340008 




STA 


MS01 




STB 


• MS02 




STX 


MS0 3 




LDX 


MX-0 1 




LDB 


- 1 , 2 ■■ 




■STB 


MX 00 




LRSH 


1 1 




MUL 


= 3 




LDX 


MS03 


_, 


LDA 


RL 1 > 2 




LDX 


RL2j>2 ■ 


, 


XX B 






- STX 


MX 7 




RCY 


18 




. ' LCY, 


.0^2 




ETR 


= 77B 




STA. 


MX 6 




BRR 


MX01 


m 1 3 


LDX 


MS03 




BRM 


CH RL 


- 


BRU 


* - 2 


MX 4 


MIN 


MX 00 


MX 03 


LDA 


MS01 




LDX 


MS0 3 • 




BRR 


MX 00 



MPUT--' 



MSO 1 
MS 02 



ZRO 
ZRO 



MS 03 


ZRO 


mxoo 


." ZRO 


MX 06 


ZRO 


MX 07 


ZRO 


MX 08 


ZRO 


MX 09 


ZRO 



* 'MBEXS 'MBRO •* 'APMTES 'DPMTE'* 'MPT* 6/30/66 
.*. B-RS'S FOR MODIFYING THE MEMORY TABLES x 



IF. -1 

MB EX SKN .PQUj-2 

BRU TRAP 

ETR =7'7B. 

BRM. , €RTA 

BRU . , TRAP 

MRG ' -1000008 



MBEX1 



M3R0 



MBR02 



MB'R0 3 



MBR0 4 



MBR0 5 



MBROT 



APMTE 



SKN 


. SS01 


EOR . 


. ' =1000008 


XMA 


0*2 


LCY 


3 


ETR 


. X4 


XMA 


SS01 


ETR 


= 778 


ADM 


SS01-. 


BRU . 


POPX 


ETR' 


= 776 


"ST A 


RTW 


BRM . 


CRT A 


BRU 


. TRAP 


STA 


CRT A , 


SKA. 


=1000008 


BRU' 


'.MBROl 


LD A 


RTW 


SK G 


=NCMEM-1 


3RU- 


MBROl 


LDA 


0*2 


SKE 


= • . 


BRU 


* + 2 


BRU ', 


TRAP 


SKN 


SS01 . 


BRU 


MBR03 


SKA 


= 40B 


BRU 


. -sMB.ro 5 


MRG 


= 40B 


STA 


0*2 


SKA 


X4 


BRU 


MBR05 


BRM ■ 


OMW 


BRM • 


: RTS 


BRU ". 


M8R04 - 


ETR 


=CNOT>40B 


STA 


0*2 


SK A . 


. X 4 


BRU 


MBR05 


LDX 


PACPTR 


BRM 


CHRL 


BRU 


TRAP 


LDA 


CRTA 


LCY 


18 


BRU 


MBEX1 


XXB ' - 




SKN 


PGU*2 


BRU 


TRAP .. 


CBX • 




BRU 


MBR02 


ENDF 




SKN 


PQU*2 


BRU 


TRAP 



DPMTE 



DPMTE2 



DPMTE 1 



MPT 



CRTA 



CRTA2 



CRTA1 



SKG 


,=NCMEM 


BRU 


TRAP 


AXC 




SKE* 


PMTJQB 


BRU 


TRAP 


LDS 


=-1000006+1003 


STB 


MS02 : 


LDA 


= TRAP-L 


ST A 


MX 00 


BRM '• 


PMTA 


BRU 


■ MTRAP 


BRU 


POPX 


ETR 


= 7 7B " 


SK G 


= 


BRU . 


POPX 


SK G 


=MCMEM . 


BRU 


TRAP 


STA 


MDEL 


BRM 


CRTA 


BRU 


POPX - . 


CBX 




SKA 


= 1000008 , "■■: 


BRU 


DPMTE 1 


LDX 


MDEL 


BRM 


MDEL 


BRU 


POPX 


SKN 


PQUj-2 


BRU 


TRAP 


BRU 


DPMTE2. 


BRM 


MPUT 


BRU 


TRAP 


BRU 


POPX • 


ITE Rl 


EL ABEL I NG TABLE AD 


ZRO 




COPY, 


XB^AX 


SKG 


=NCMEM-1 


BRU 


CRTA1 


EAX* 


PMTJOB 


LDA 


03^2 


SKA 


X2 ^ 


BRU 


CRTA1 


SKE. 


.. =0 


MIN 


CRTA. 


BRR 


CRTA 


ADD 


= SMT 


CAX 




LDA 


0*2 • - 


BRU 


CRTA2 ■■■ 



'RDRL *.* ' RURL ' , ' STRL % * SURL ' . '6/28/66 



* READ 


AND 


SlL 


T RELABELING 


PDRL 


LDA 




RL 1 , 2 




LDB 




RL2j>2 




LDX' 




SS03 




BRU 




XPOP 


RJRL 


LDA. 




UPRRL1 




LDB 




UPRRL2 




LDX 




SS'33 ' . 




BRU 




XPOP 


STRL • 


BRM 




SCRL 




BRU 




TRAP 




LDA 




■S-S0-1 




LDB 




SS02 




STA 




■RL1*2 




STB . 




RL2j2 


.STRL 1 


BRM 


CH 


RL5 BRU- SSQOi B 


3JRL 


BRM 




SCRL 




BRU 




TRAP 




LDA 




SS01 




LDB 




SS02 




. STA 




UPRRL 1 




STB 




UPRRL2 




BRU 




POPX 


SPMTB v 


SKG 


= 7 


IBS SKG = NCMEM5 




AXCJ 


S 


KE* PMTJOBJ 'MIN 




ZRO 
CLX 




! 




BRM 




UPRL 




CL'A 








LDX 




PACPTR 




SKN 




PQU,2 




LDA 




=1000008 




STA 




STRL 4. 




LDX 




' =-10 


STRL 3 


LDA 




SRTE* 2 




BRM 




CRT A 




Q t> Q 




SCRL 




CBX 








SKA 




STRL 4 




BRR 




SCRL 




BRX 




STRL3 




MItM 




SCRL 




LDX 




. PACPTR 




BRR 




SCRL 


STRL 4 


ZRO 


- 




RDUSSR 


LDA 


USSRL15 LDB USSRL 



BRU POPX 



BRM 
•05 "I 



TRAPX 

IRU-POP) 



JUPAR .BRM GATT5 LDA UEXFLG5 LDB WERI S* 2 
LDX WERI SB, 25 BRU XPOP-' 



TRAP ROUTINES 



PPAN 


LDA 


VJ 




. CLB 






BRU, 


PTRAP 


* SKIP 


IF EXFLAG SET 


SKXEC 


SK N 


LJEXFLG- 




BRU 


PO PX 




MIM • 







BRU 


PO PX 


* ILLEGAL INST 


RUCTION TRAP 


TRAP I 


ZRO 






ST. A 


SS01 




STB 


SS02 




STX 


SS03 




LDA ' 


TRAPI 




LDB 


= 1 


^GENERAL TRAP 


LOGIC, 


FT RAP. ' 


LDX 


■ PACPTR 




SKG 


= -1 ' 




BRU 


'.♦ + 2. 




LDA 


.0 ' ' 




ETR 


= 50.03 777 78 




STA- 


PL., 2 




LDA 


SS01 




STA 


PAj-2 .. 




LDA 


SS02 




STA 


PB.,2 . ■• 




LDA 


SS03 




STA 


PX* 2 




BRM 


RFK 




BRM 


TFK 




BRU 


PACGO 


^-ILLEGAL SYS POP EXIT 


TRAPS 


ZRO 






BRU • 


TRAP 




IF.-l 




NRTRAP 


BRM 
ENDF , 


MSX 


TRAPX 


ZRO 


REPLACE' BRU 


TRAP 


LDA 


.0 




LDB ■ 


= i 




BRU 


PTRAP 


* NON- 


RESIDENT 
IF -1 


RETURNS 


MRPOPX 


BRM 


MSX 




BRU 


POPX 


NRXPOP 


BRM 


MSX 




BRU 


XPOP 




ENDF 




*READ-< 


3NLY TRA 


P 


*MEMOR' 


Y TRAP ' 




TRAP-M 


Z RO 


^ 




STA 


TX01 




STB 


TX02 



TRAP WITH BRM TRAPX FOR DEBUGGING 





STX 


TX03 




LDA 


• TRAPM. 




ETR 


=500377773 




STA 


TX00 




BRM 


CAE 




•MRG 


-400008 




LDX 


PACPTR 




LDB 


=-100000B+100B 




BRM 


MGET 




BRU 


TX07i SKN TX00J BRU TX06 




LDX 


PACPTR5. BRM CHRLr BRU *+2 




BRU 


TX085 LDX PACPTRJ BRM CHRLJ BRI 


. . 


BRU 


TX085 BRM TX05 




LDB 


PACDMB5 LDX = QSQJ BRU PQPDMS 


TX07 


BRM 


TX05J BRU MTRAP 


TX06 


LDX 


P'ACPTRi BRM CHRLJ 8RU *-.2 ' . 


TX08 


LDA 


TX01 




LDB 


TX02 




LDX 


TX03 ' ; 




BRI 


■ TX00 - 


TX05 


ZROi 


LDA . TX01 




STA 


SS01 




LDA 


TX02 




STA 


SS02 




LDA 


TX03 




STA 


SS03 " .-■"•■ 




LDA 


TX00- • 




SKA 


X4 




STA 


'.■■■■■ ■'■ 




BRR 


TX05 


SMTRAP 


LDX 


PACPTR 




LDA 


=10000006 




BRM 


1 1 R 




BRU 


■■•■ MTPAN 




BRU 


PO'PIN'i 


MTPAN 


LDA 


0j 




LDB 


= 2 , ■ 




BRU' 


■> PTRAP ■■•.■'■. 


-•!=' CO MP 


UTE -EFFECTIVE OUT-OF-BOUNDS ADDRESS 


* 


TIME 


: =114 + 'N. CY 


SCAE. 


ZRO 


■ • ■ 




STA 


. .CAEl 




STX 


CAE3 


CAE 1 1 


BRM 


CEX . ■ ■ 




LDA* 


■ CAEl 




BRU 


CAE 4 ' . . 


* ADDR 


ESS FOUND 


CAE5 


LDA 


' CAE 1 




BRR 


CAE 


CAE 4 


LDA 


CEX 3 




STA 


CAE 2 




SKA 


XI 




BRU 


CAE6 




LDA 


I ABIT 



-.(MlA! 





ADM 


- CAE1 




LDX 


CAE3 




BRM 


CEX 




. EAX* 


CAE1 .'■■'-..' : 




BRU 


CAE7 


* INDIRECT ADDRESS CHAIN- OlJT-OF- BOUND 




LDA 


=-400003 




ADM 


CAEI 




BRU 


CAE9 .'■..■• 


CAE8 


LDA ' 


CAEI 




ETR 


X4 * 




MRG 


CEX3 




ETR , 


= 6003777-78 




STA 


CAEi ,- ' ' 


CAE9 


LDX 


CAE3 




BRM 


CEX ■ 




LDA* 


CAEI 




BRU 


CAE8- ' 




BRU 


CAE5 '. 


* POP 


CAUSED 


TROUBLE 


CAE 6 


LDA 


X4' . . 




BRR 


CAE 


* x CHECK FOR 


EXU- OTHERWISE X CONTAINS 


CAE 7. 


CXA. 






ETR 


=400377778 




STA • 


CAEI 




LDA 


CAE2 




■ EO R ' 


EXUW 




SKA 


=177000008 . . ■ ' 




BRU 


CAE 10 . 




LDX 


"'■ CAE 3 : 




BRU 


CAE11 


CAE 1 


M I N 


CAE 




BRU 


CAE5 - 


CAE1 


ZRO 




CAE2 


Z RO 




CAE3 


Z RO 




EXUW 


EXU 


' 


I ABIT 


ZRO* 





* EXECUTE i\'E 


XT INSTRUCTION AND SKIP I 


*J- 


TIME 


=31 + N CY 


CEX 


ZRO 






M I N 


. CEX . 




STA 


CEX1 




LDA 


CEX2 




XMA 


41 B ' 




STA 


' CEX3 




EXU* 


. CEX 


CEX4 


XMA 


CEX 3 




STA 


'4 IB . ' 




LDA 


. CEX1. 




BRR 


CEX 



BAD ADDRESS 



F OUT-OF-BOUNDS- 



* OUT-OF BOUNDS IF VIE COME HERE 
CEX2 BRU *+l 

MIN . CEX 

BRU ■' CEX4 



CEX1 


ZRO 




CEX 3 


ZRO 




*' SU 


1ULATE 


MEMORY' TRAP 


MP AN 


LDA 


' PQUV2 




EOR 


X6 




SKA 


X6 




BRU 


TRAP 




LDA 


PPTR*-2 




MRG 


PLMSK 




CAX 






LDA 


SS01' 




LDB 


= -100000B+.100B 




BRM 


MGET .. 




. BRU 


* + 2 ' 




BRU 


SSQO 




LDA 


• SS01 




STA 


UPL 




BRU 


MTRAP ■ 


TX00 


ZRO 




TX01 


.ZRO 




TX02 


ZRO 




TX03 


ZRO 


\ 



FO-RK LOGIC 

' N STRUCTURE 



* FIND 


HI GH 


EST 


FORK Ii 


EFK 


ZRO 









. LDA 




PPTR* 2 




. MRG 




PLMSK 




CAB 








ETR 




PRMSK 




SK G ' 




= . 




BRR 




EFK 




CBX 








BRU 




EFK+1 


* GET 


FORK 


ENT 


RY 


GFK 


ZRO 








L'DA 




FPL ST 




SK G 




= 




BRR 




GFK 




SUB 




= PPTR 




COPY 




AX j A 3 B 




XMA 




PPTFo2 




STA 




FPL ST 



MliM 


GFK ' 


BRR . 


GFK 


* PUT NEW FORK 


ON QIO 


* SET PDOWNCOL 


D)=NEW* PD0WNCNEW> = 9 


* PFORK CNE 


W)=OLD/ PPARCNEW)-PDOWN(OLD) 


STFK ZRO 


, 


CXA 


. 


STA 


FK04 


' LDX' 


= QTI 


BRM 


■QPU-t 


LDX , 


. PACPTR. 


LSH • 


12 


ETR 


PLMSK 


XMA 


PPTR^S' 


CAB 




ETR . 


. PRMSK • 


ADM 


PPTR>2 


LDA 


FK04 


XX A 




ETR 


PRMSK 


STA '. 


PPTR*2 . 


LDA 


PACDM8 


STA 


PTEST*2 


LDX 


PACPTR. ■ 


CLA 


y 


RSH 


3 


LDA 


QUTAB 


L SH 


15. 


BRR 


STFK 


* DELETE PAC ENTRY WHOSE PACT PTR IS GIVEN IN X , 


DFK . ZRO 


" • \ 


STX 


DFOl 


LDA 


=7000008 


BRM 


QSCH , .-.■'" 


* REMOVED FROM 


QUEUE IF- DISMISSED 


LDA 


PPTR*2 


SKA 


PRMSK 


BR.U 


* + 2 


BRR 


DFK CEXEC NOT DELETED 


M R G 


'PLMSK 


COPY 


AB* XA 


LDX 


UTTY . / ■ ' 


ky PFORK IN 3* 


PACT PTR IN A 


. SK E 


TTYASG^S 


8RU 


* + 2 . - 


STB 


TTYASG*2 C PROPAGATE RUBOUT 


* PUT PFORK .IN 


X* P DO WNC PFORK) IN A 


• CBX 




LDA 


PPTRj.2 


RSH 


12 


■ . SK E 


DF01 


8RU 


DF0 2 


COPY 


XBjAX 


LDA 


PQU>2 



•UP c ) 





SKA 


PRMSK 






BRU 


DF03 




.* LAST 


FO RK 
XXB 


ON PDOWN TO BE CLEARED- 


• PUT PFORK IN 




LDA. 


PPTRj.2- 






ETR 


PRMSK 






STA 


PPTPJ 2 






COPY 


BX*BA 




* PUT 


PACT ENTRY 'ON FPL ST 




DF04 


ADD . 


= PPTR 






XMA 


FPL ST 






STA 


PPTR* 2 






BRR 


DFK~ 




* MO VE 


PDOl-JN 


OVER ' 




DF03 


COPY 


BX*B CNEl' 


■■! PDOWN IN A*P 




L CY 


12 


" - 




XMA 


PPTR*2 






ETR 


PRMSK' 






ADM 


PPTRji 2 




DF05 


LDX 
•CXA 


DF01 " 






■ BRU 


' DF04 




* SEARCH PPA 


.R. THEN REMOVE . 




DF02 ' 


CAX 






- 


LDA 


PQU*2 - 






MRG 


PLMSK 






SK E 


DFOl 






BRU 


DF02 "■ 






COPY - 


XB*AX 






LDA 


PQU*2 






ETR 


PRMSK 






CBX 








XMA 


PQU* 2 






ETR; 


.; PLMSK 






ADM 


PQl.b 2 






BRU 


DF0 5 




DF0 1 ', 


ZRO 


\ 




* . SEAR 


CH SUB 


SI DIARY FORK STRUCTURE 


FOR SPECIFIED 


-> 


SK I P 


IF PRESENT* NO SKIP IF 


TERMINATED 


SHFK 


ZRO 








LDA 


PPTR*2 






SKA 


PLMSK 






, BRU . 


*+2 . 






BRR 


SHFK 






RSH' 


•' 12 




S4F01 ' 


- CAX 








LDA 


PTA8.-2 ' 






EO R 


SS01 






SKA 


.ADMSK 






BRU 


*+3 






MIM 


. SHFK 






BRR 


SHFK 






LDA 


PQU*2 ■• 






SKA 


PRMSK 





X* PACT PTR IN B 



PFORK IN X) 



FORK 



BRU 


* + 2 


BRR 


SHFK 


MRG 


PLMSK 


BRU 


. SHF01 


FO RK 


STRUCTURE 



*SCAN FORK STRUCTURE AN F OPERATE 

* A= OPERATION 

* X= EXIT ■■'„.-. 

*' THE OPERATION SPEC BY .A IS CALLED WITH CORRECT PACPTR IN X 
SCFK ZRO 

STA . SCF01 

STB ,. SCF02 

STX = ' SCF03. 



* SCAN 


TO- LOi 


3AL 'BOTTOM' 


SCF0 6 


SXN 


PPTR* 2 




BRU 


S.CF0 7- 




LDA 


PPTRj.2 




R'SH 


12 


• 


CAX 






BRU 


SCF06 


SCF0 7 


CXA 






SKE 


SCF03 




BRU 


SCF05 


* PERFORM OP 


AND EXIT 




3RM* 


'SCFOl 




LDB 


SCF02 




LDX .■: 


S.CF03. 




BRR ' 


SCFK 


3CF0 5 


LDA 


PQU*2 




SK A' 


prmsk: 




BRU 


SCF08- 


* PERFORM OP 


AND GO 'UP' 




LDA 


PPTR..2 




NRG 


PLMSK 




STA 


SCF04. 




BRM* 


SCF01 




LDX 


SCF04 




BRU 


SCF0 7 


* PERF 


ORM OP 


AND GO ^PARALLEL 


SCF08 


NRG 


PLMSK ' 




STA 


SCF04 




BRM* 


SCF01 ' 




LDX 


SCF04 




BRU 


SCF0 6 / 


SCFO 1 


Z-RO 




SCF02 


Z RO 




SCF03 


ZRO : 




SCFQA 


Z RO 




* TERM 


I NATE i 


mORK STRUCTURE 


TFK 


Z RO 






LDA - 


PPTR* 2 % 




STA 


TF01 




LDA 


PTABi.2 




STA 


TF06 . ' 




LDA 


= DFK 





BRM 


SCFK 








LDA 


TF01 








SKA 


\ PRMSK 








BRU 


TF02 






* EXEC 


TOP- 

LDA 

STA 

LDA 

STA 

LDA 

STA 

LDA 

ETR 

STA 

BRU 


Level panic . 

PACDMB 
' PTEST*2 
EXECL6*4. 
PX*2 
TFC01 
PL* 2 
PQU*2 

=477777776 
PQU*2 
TF09 






* ORDINARY 


PANIC 






TF02- 


i-iRG 

COPY 

LDA 

EOR 

SKA 

BRU. 

CAX 

BRU 


PLMSK 
AX*AB 
PTEST/2 
= 7000008 ., 
=77000008 ■ 
TF0 3 

**2 


• 






BRU 


TF03- 


( ACTIVE) ' 






BRU 


TF04 


(SRS31) 






BRU- 


TF05 


(BRS- 10 6) 






BRU 


■ TF03 '' 


(PERFORMING 


EXEC 




BRU 


TF04 


(BRS 109) 




* CAUSE INT 


ERRUPT IF ARMED ' 






TF'0.3 


LDA 
CBX 
BRM 
NOP 
BRR 


=4003006 

IIR 

TFK 






!= BRS 


106 








rF05 


CBX 
MI'N 


PL* 2 






TF08 


LDA 
CBX 
STA 
M I N 
LDA 
ETR 
STA 
LDA 
STA 


PACDMB 

PTEST*2 
1 PL* 2 
TF0 6 
ADMSK, 
PA* 2 
SCF02 
PX*2 






1T09 


CXA 
STX 
LDX 
'BRM 
LDX 
BRR 


TF0 6 
= QIO' ' 
QPUT 
TF0 6 
TFK 







BRS) 



BRS 



TF04 


GBX 






LDA. 


. TF0 6 




EO R 


PA* 2 




SKA 


ADiMSK 




..3RU 


TF03 




BRU 


TF0S' 


T.F01 


Z RO 




TF0 6 


.ZRO 




TFC01 


ZRO 


. EXECP*4 


* READ 


FO RK 


.STATUS • 


RFX 


ZRO 






'LDA 


PQU*2. 




FOR 


X 6 




' SKA 


X6 




BRU. 


RF12 




LDA 


PPTR* 2 




.iMRG 


PLMSK 




CAX 




RF12 


LDA • 


= RF06 




.BRM 


■SCFK 




LDX 


PUPAC 




BRi'-'l 


' ■. CHRL 




BRU 


*-2 




LDB 


. SCF02 




LDX 


SCF0 3 




BRR 


RFK 


RF06 


ZRO 






STX 


RF08 




LDX 


JOB 




LDX 


RL 3* 2 




CLAB 






. BRM 


SWAP . 




BRU 


* - 1 




BRM 


. LABEL 




LDX 


RF0S 




LDA 


PL* 2 




SKA 


X4 




BRU 


*+2 




LDA 


SBRSRT 




STA 


RF14 




, CX A . 






FOR 


SCF03 




SKA . 


ADMSK 




BRU 


RF10 




LDB 


SCF02 




SKB 


X4 




BRU 


* + 2 




BRU 


RF0 7 


RF10 


LDA 


PTEST*2 




LDB 


= .- 1 


\ 


SKE 


PACDi'lB 




LDB 


■ " = - 2 


RF0 7 


LDA' 


. PQU*2 




FOR 


X 6 



CHANG)'. 





SKA 


X6 




BRU 


*-H3 




CXA 






BRU 


RFll 




. LDA 


PPTR. 2 




SKA 


PRMSK 




BRU 


*+2 




CXA 


C TOP-LEVEL 


RFll ' 


MRG 


PLMSK 




ST A 


RF13 




STB , 


FK04 




. LDA 


PTAB. 2 . 




ETR 


ADMSK 




MRG' 


X4 ". 




STA 


RF08 




CXA 






ADD 


RFC0 1 




STA 


RF09 




LDA 


RF0S 




ETR 


=340008 




LRSH ' 


11 




MUL 


=3 : 




LDX 


. RF 1 3 




LDA 


RL1.2 ■ 




LDX 


RL2>2 , , 




XX B 






RCY 


IS • ' 




LCY 


0^2 




ETR' 


. -77B 




SKE' =05 


BRU * + 2J B 




CLB 






RCY- 


0.2 




LCY' 


IS 




CLX 






BRM 


SWAP 




BRU 


*-l 




BRM 


LABEL 




LDA. 


RF14 




STA* 


RF0S , 




M I i\> 


RF08 




LDX 


= - 5 ' ' 


RF09 ■ 


LDA 


PL 6.2 


- 


STA* 


RF08 




MIN 


RF08 




8RX 


-RF09 




LDA . 


FK04 




STA* 


RF08. 




BRR 


RF06 


RF0.8 


ZRO 




.RF 13. 


ZRO . 




RF14 


ZRO 




RFC01 


LDA' 


. PL 6j- 2 ' 


* STAR" 


T SUBSIDIARY FORK 


FK ST 


ETR 


=377 7B . 



(EXEC- BRS) 



lXEC) 



nop n tr 



<R- RF0( 



CHANG) 



ADD ■ • =6 

SKA . =40008 

BRU ' TRAP (PANIC TABLE OVERLAP) 

LDA SS01 

• BRM -SH-FK ' 

BRU , *+2 ' 

BRU TRAP (TRIED TO RESTART SAME FORK). 

BRM GFK ; ■ • . • \ 

BRU FKSTW ' (DISMISS UNTIL PACT SLOT FREE) 

BRM STFK • . : - 

' LDB. SS01 

SKB X4 ' '■■■'. 

SKN PQU*2 

'BRU **2 • .. 

MRG X4 

LDX ' FK04 . 

STA PQU*2 
. CLA . -. . 

SKB. =40000008 

MRG • X4 

STA ■ PIM*2 ;■.'.. 

CBA - - ' 

ETR . • ADMSK ' . > 

LRSH 15 ' 

LDA ■ JOB 

LSH .15 

SKB ' ' =20000,008 

MRG ■' X4 ' /.-.'■ 

STA . PTAB*2 • . ■ . ' . 

*" PROPAGATE TTYASG DOWN IF CALLED FOR 

LDA UTTY 

SK G = - 1 

BRU FK0 7A . 
N CAX 

' LDA FK04 

SKB XI 

STA 'TTYASG* 2. ■ 

FK07A LDX PACPTR 

LDA ' SS01 

SKA X2 

BRU FK08 

FX0 7 LDA RL1*2 . > 

LDB RL2*2 
* STORE RELABELLING* INITIAL A*B*X*L 

FiiQ9 ' LDX FK04 

. ■ STA . RL 1 * 2 

STB RL2*2 

LDX SS01 ■ 

LDA 2* 6 

LDB 3*6 

LDX ' FK04 

STA PB*2 

STB .'.■■■ PX*2 

LDX ' SS01 





LDA 




=- 1 






STA 




6*6 


(SET ST 




LDB 




1* 6 






LDA 




0* 6 






ETR 




=500377776 , 




SKN 











BRU 




* + 2 






MRG 




X4 






LDX 




FK04 






.STA 




PL* 2 






■ 3TB 




PA* 2 






BRU 




POPX 




* PICK 


UP RELABELLING 


FROM PANIC TABLE 


FK08 


CAX 
LDA 
LDB 
BRM 
BRU 
LDX 
LDA 
LDB 
BRU 




4* 6 
5*6 
SCRL 
FK08B 
SS01 . 
4* 6 
5* 6 - 
FK09 




FK0SB 


LDX 

BRM 
BRU 




FK04 

DFK 

TRAP 




* DISMISS UNTIL PACT SLOT IS RELEASED 


PKSTW 


LDB 
BRU 




= FPL ST 
IOQDMS 


* . . ■ • 


* WAIT 


FOR 


SPECIFIED, F 


'ORK.TO TERMINATE 


FK WT 


BRM 
BR!_L 




SHFK 
FK0.1 






LDB 




'.= 70.00826 




BRU 




POP ST 




* READ 


STATUS 


OF SPECI 


FIED FORK 


FKRD 


BRM 

' BRU 




SHFK 
FK01, 






LDB 




= - 1 


- '• 




. BRM 




RFK 




FK01 


LDX 
LDA 
STA 
BRU 




SS01 

SS03 
POPX 




*. TERMINATE 


• gp 


ECIFIED 


FORK' 


FKTM 


BRM 
BRU 
LDB 

BRM , 

BRM 

BRU 


i 


SHFK . 
FK01 

= -.1 

RFK 
TFK 
FK01 . 




* WAI T 


FOR 


ANY 


- FO RK TC 


> TERMINATE 


Fi< WA 


SKN 
BRU 




PPTFk.2 

POPX 






LDB 




= 7000(338 ' 


w 


BRU 




PO-PST 





m TO RUNNING). 



* TERMINATE ALL SUBSIDIARY FORKS 
FKTA SKM PP'TR*2 

BRU .•■ POPX 

LDB = FK02 

FK03 .' STB., FK04 . 

LDA PPTR*2 

RSH .12 

FK05 MRG .PLMSK 

CAX . 

LDB =-1 

$RM* FK04 ' 

LDA PQU^2 

SKA PRMSK 

BRU ."■ ,FK05 

BRU POPX ' , 

FK02 ZRO 

BRM . RFK 

BRM TFK 

BRR FK02 - 

* .READ STATUS OF ALL SUBSIDIARY FORKS 
FK'RA SKN. PPTR*2 

. . . BRU POPX. 

. LDB =RFK 

BRU FK03 

FK04 ZRO 

* -..PROGRAMMED- INTERRUPT LOGIC 
.SRIR LDA PIN* 2 

ETR =37777 778 

LDX SS03 

BRU . XPOP 

STIR SKG =20 

SKG =4 ". 

BRU TRAP ■ ■ , 

1 CAX 

1.DA =400.00008 

RSH / - 0*2 .. ' ■ 
LDX" PACP7R- '"'.-." 

BRM SIR 

• - BRU POPX ' 

CXAJ SKE PACPTR5 '3RU POPX5 BRU POPINT 
SAIR DIR5 EOR PIM*2$ ETR = 3777777BJ- EOR PI.M* 25 EI R 
'ST A • PIM*2 
, 'BRU POPX' 

END 



